/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / env.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 67 65 65 63 68 2e 67 6e | 75 2e 61 69 2e 6d 69 74 |geech.gn|u.ai.mit|
|00000030| 2e 65 64 75 20 6f 6e 20 | 57 65 64 20 4a 75 6e 20 |.edu on |Wed Jun |
|00000040| 32 32 20 32 31 3a 32 32 | 3a 34 33 20 31 39 39 34 |22 21:22|:43 1994|
|00000050| 0a 3b 3b 3b 20 66 72 6f | 6d 20 66 69 6c 65 20 2f |.;;; fro|m file /|
|00000060| 67 64 2f 67 6e 75 2f 65 | 6d 61 63 73 2f 31 39 2e |gd/gnu/e|macs/19.|
|00000070| 30 2f 6c 69 73 70 2f 65 | 6e 76 2e 65 6c 0a 3b 3b |0/lisp/e|nv.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 32 35 2e 31 32 | 2e 0a 3b 3b 3b 20 62 79 |19.25.12|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|00000190| 65 72 72 6f 72 20 22 60 | 2f 67 64 2f 67 6e 75 2f |error "`|/gd/gnu/|
|000001a0| 65 6d 61 63 73 2f 31 39 | 2e 30 2f 6c 69 73 70 2f |emacs/19|.0/lisp/|
|000001b0| 65 6e 76 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |env.el' |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001d0| 39 22 29 29 0a 0a 28 64 | 65 66 61 6c 69 61 73 20 |9"))..(d|efalias |
|000001e0| 27 73 65 74 65 6e 76 20 | 23 5b 28 76 61 72 69 61 |'setenv |#[(varia|
|000001f0| 62 6c 65 20 26 6f 70 74 | 69 6f 6e 61 6c 20 76 61 |ble &opt|ional va|
|00000200| 6c 75 65 20 75 6e 73 65 | 74 29 20 22 08 83 06 00 |lue unse|t) "....|
|00000210| c1 12 c3 c4 0d 5c 22 83 | 12 00 c6 c7 0d 5c 22 87 |.....\".|.....\".|
|00000220| c8 c9 0d c4 50 21 50 c1 | 0e 5c 6e c1 1e 0b 1e 5c |....P!P.|.\n....\|
|00000230| 66 1e 0d 1e 0e 0e 5c 66 | 83 5d 00 c3 0e 0e 0e 5c |f.....\f|.].....\|
|00000240| 66 40 5c 22 83 54 00 cf | 16 0b 5c 6e c1 3d 83 49 |f@\".T..|..\n.=.I|
|00000250| 00 d0 0e 5c 66 40 0e 5c | 6e 5c 22 16 5c 6e 82 51 |...\f@.\|n\".\n.Q|
|00000260| 00 0e 5c 66 0d c4 5c 6e | 51 a0 88 c1 16 5c 66 0e |..\f..\n|Q....\f.|
|00000270| 5c 66 41 89 16 5c 66 84 | 2a 00 0e 0b 86 70 00 5c |\fA..\f.|*....p.\|
|00000280| 6e 85 70 00 0d c4 5c 6e | 51 0e 5c 6e 42 89 16 5c |n.p...\n|Q.\nB..\|
|00000290| 6e 2c 87 22 20 5b 75 6e | 73 65 74 20 6e 69 6c 20 |n,." [un|set nil |
|000002a0| 76 61 6c 75 65 20 73 74 | 72 69 6e 67 2d 6d 61 74 |value st|ring-mat|
|000002b0| 63 68 20 22 3d 22 20 76 | 61 72 69 61 62 6c 65 20 |ch "=" v|ariable |
|000002c0| 65 72 72 6f 72 20 22 45 | 6e 76 69 72 6f 6e 6d 65 |error "E|nvironme|
|000002d0| 6e 74 20 76 61 72 69 61 | 62 6c 65 20 6e 61 6d 65 |nt varia|ble name|
|000002e0| 20 60 25 73 27 20 63 6f | 6e 74 61 69 6e 73 20 60 | `%s' co|ntains `|
|000002f0| 3d 27 22 20 22 5c 5c 60 | 22 20 72 65 67 65 78 70 |='" "\\`|" regexp|
|00000300| 2d 71 75 6f 74 65 20 70 | 72 6f 63 65 73 73 2d 65 |-quote p|rocess-e|
|00000310| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 66 6f 75 6e 64 |nvironme|nt found|
|00000320| 20 73 63 61 6e 20 63 61 | 73 65 2d 66 6f 6c 64 2d | scan ca|se-fold-|
|00000330| 73 65 61 72 63 68 20 70 | 61 74 74 65 72 6e 20 74 |search p|attern t|
|00000340| 20 64 65 6c 71 5d 20 35 | 20 22 5c 0a 53 65 74 20 | delq] 5| "\.Set |
|00000350| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 74 68 65 |the valu|e of the|
|00000360| 20 65 6e 76 69 72 6f 6e | 6d 65 6e 74 20 76 61 72 | environ|ment var|
|00000370| 69 61 62 6c 65 20 6e 61 | 6d 65 64 20 56 41 52 49 |iable na|med VARI|
|00000380| 41 42 4c 45 20 74 6f 20 | 56 41 4c 55 45 2e 0a 56 |ABLE to |VALUE..V|
|00000390| 41 52 49 41 42 4c 45 20 | 73 68 6f 75 6c 64 20 62 |ARIABLE |should b|
|000003a0| 65 20 61 20 73 74 72 69 | 6e 67 2e 20 20 56 41 4c |e a stri|ng.  VAL|
|000003b0| 55 45 20 69 73 20 6f 70 | 74 69 6f 6e 61 6c 3b 20 |UE is op|tional; |
|000003c0| 69 66 20 6e 6f 74 20 70 | 72 6f 76 69 64 65 64 20 |if not p|rovided |
|000003d0| 6f 72 20 69 73 0a 60 6e | 69 6c 27 2c 20 74 68 65 |or is.`n|il', the|
|000003e0| 20 65 6e 76 69 72 6f 6e | 6d 65 6e 74 20 76 61 72 | environ|ment var|
|000003f0| 69 61 62 6c 65 20 56 41 | 52 49 41 42 4c 45 20 77 |iable VA|RIABLE w|
|00000400| 69 6c 6c 20 62 65 20 72 | 65 6d 6f 76 65 64 2e 20 |ill be r|emoved. |
|00000410| 20 0a 0a 49 6e 74 65 72 | 61 63 74 69 76 65 6c 79 | ..Inter|actively|
|00000420| 2c 20 61 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |, a pref|ix argum|
|00000430| 65 6e 74 20 6d 65 61 6e | 73 20 74 6f 20 75 6e 73 |ent mean|s to uns|
|00000440| 65 74 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 2e |et the v|ariable.|
|00000450| 0a 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 77 |.This fu|nction w|
|00000460| 6f 72 6b 73 20 62 79 20 | 6d 6f 64 69 66 79 69 6e |orks by |modifyin|
|00000470| 67 20 60 70 72 6f 63 65 | 73 73 2d 65 6e 76 69 72 |g `proce|ss-envir|
|00000480| 6f 6e 6d 65 6e 74 27 2e | 22 20 28 62 79 74 65 2d |onment'.|" (byte-|
|00000490| 63 6f 64 65 20 22 08 83 | 0b 00 c1 c2 21 c3 c4 45 |code "..|....!..E|
|000004a0| 87 c1 c5 21 89 1e 06 c1 | c7 c8 0e 06 5c 22 21 29 |...!....|....\"!)|
|000004b0| 44 87 22 20 5b 63 75 72 | 72 65 6e 74 2d 70 72 65 |D." [cur|rent-pre|
|000004c0| 66 69 78 2d 61 72 67 20 | 72 65 61 64 2d 73 74 72 |fix-arg |read-str|
|000004d0| 69 6e 67 20 22 43 6c 65 | 61 72 20 65 6e 76 69 72 |ing "Cle|ar envir|
|000004e0| 6f 6e 6d 65 6e 74 20 76 | 61 72 69 61 62 6c 65 3a |onment v|ariable:|
|000004f0| 20 22 20 6e 69 6c 20 74 | 20 22 53 65 74 20 65 6e | " nil t| "Set en|
|00000500| 76 69 72 6f 6e 6d 65 6e | 74 20 76 61 72 69 61 62 |vironmen|t variab|
|00000510| 6c 65 3a 20 22 20 76 61 | 72 20 66 6f 72 6d 61 74 |le: " va|r format|
|00000520| 20 22 53 65 74 20 25 73 | 20 74 6f 20 76 61 6c 75 | "Set %s| to valu|
|00000530| 65 3a 20 22 5d 20 36 29 | 5d 29 0a 28 70 72 6f 76 |e: "] 6)|]).(prov|
|00000540| 69 64 65 20 28 71 75 6f | 74 65 20 65 6e 76 29 29 |ide (quo|te env))|
|00000550| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+